home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / REACTOR.ZIP / ReAcToR / capskick.txt < prev    next >
Text File  |  1997-01-28  |  2KB  |  39 lines
  1. paste this into you remote events, put it last, because it uses ON TEXT:*: which means that it
  2.  traps every ON TEXT event it encounters, so any ON TEXT events after it will never trigger.
  3. Also channel flood control scripts have to use the same routine, so you can't run both in the
  4.  same client with different events.
  5.  
  6. -------8<-------------cut here ----------------8<--------------cut here------------8<---------
  7.  
  8. +1@:ON TEXT:*:#:{
  9.   set -q %x 1
  10.   set -q %text $len($parms)
  11.   if %text < 6 { goto end } 
  12.   :letters
  13.   if %x > %text { goto kicker } 
  14.   if $asc($mid(%x,%text,$parms)) == $asc($upper($mid(%x,%text,$parms))) { inc %x | goto letters } 
  15.   else { goto end } 
  16.   :kicker
  17.   ban -u8 $chan $nick 3
  18.   notice $nick CAPSLOCK detected, Please don't Talk in all UPPER CASE, it's considered rude (this ban will be lifted in a moment) 
  19.   onotice $chan [ops] capslock warning sent to $nick 
  20.   echo 5 $active [ops] capslock warning sent to $nick 
  21.   :end
  22. }
  23. 1@:ON ACTION:*:#:{
  24.   set -q %x 1
  25.   set -q %text $len($parms)
  26.   if %text < 6 { goto end } 
  27.   :letters
  28.   if %x > %text { goto kicker } 
  29.   if $asc($mid(%x,%text,$parms)) == $asc($upper($mid(%x,%text,$parms))) { inc %x | goto letters } 
  30.   else { goto end } 
  31.   :kicker
  32.   ban -u8 $chan $nick 3
  33.   notice $nick  CAPSLOCK detected, Please don't Talk in all UPPER CASE, it's considered rude (this ban will be lifted in a moment) 
  34.   onotice $chan [ops] capslock warning sent to $nick 
  35.   echo 5 $active [ops] capslock warning sent to $nick 
  36.   :end
  37. rem Another Despayre Production ⌐1996
  38. }
  39.